Option Explicit
Sub F_Sample047()
   'Microsoft DAO 3.6 Object Library ]wޥζ
   'ոF_Sample033s@XӪNewDB.mdb
    Dim myDb       As DAO.Database
    Dim myFileName As String
    myFileName = "NewDB.mdb"				'iRɮ
    Set myDb = OpenDatabase(ThisWorkbook.Path & "\" & myFileName)
   'R檺Ҧ
    myDb.Execute ("DELETE * FROM " & myDb.TableDefs(0).Name)
   '檺R
    myDb.TableDefs.Delete myDb.TableDefs(0).Name
   'dߪR
    myDb.QueryDefs.Delete myDb.QueryDefs(0).Name
    myDb.Close
    Set myDb = Nothing					'
End Sub
